home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
patch
/
blizzrep.lha
/
BlizzRepair2
/
BlizzRepair2.s
< prev
Wrap
Text File
|
1995-09-30
|
691b
|
42 lines
incdir 'include:'
include 'libs/exec.i'
include 'exec/exec.i'
movem.l d1-d7/a0-a6,-(a7)
move.l 4,a6
move.l #8,d0
move.l #MEMF_FAST,d1
jsr AllocMem(a6)
tst.l d0
beq.s reset
move.l d0,a1
move.l #8,d0
jsr FreeMem(a6)
end movem.l (a7)+,d1-d7/a0-a6
moveq #0,d0
rts
reset move.l #32,d0
move.l #MEMF_PUBLIC+MEMF_CLEAR,d1
jsr AllocMem(a6)
tst.l d0
beq.s .exit
move.l d0,a0
move.l d0,a1
move.w #20,d7
lea nameascii,a2
.loop move.b (a2)+,(a0)+
dbra d7,.loop
move.l #$400000,d0
move.l #MEMF_PUBLIC+MEMF_FAST+MEMF_24BITDMA,d1
move.l #10,d2
lea $200000,a0
jsr AddMemList(a6)
.aa move.w $dff006,$dff180
bra.s .aa
.exit bra.s end
nameascii
dc.b 'personal added memory',0